home *** CD-ROM | disk | FTP | other *** search
/ PC Advisor 2007 June / PC Advisor 2007 June.iso / GTours / Alignment of planets.gt5 < prev    next >
Text File  |  2003-08-12  |  2KB  |  75 lines
  1. OpenWorkspace "China1.ws5"
  2. Set wnd = getWindow(1)
  3. Set Camera = wnd.camera
  4. Set theTime = camera.time
  5. Set Direction = camera.Direction
  6. Set Location = camera.Location
  7. Set flt = wnd.Filters
  8. '---- end standard prologue'
  9. wnd.MDIWindow.State = SW_MAXIMIZE
  10. theTime.wnd.left = Screen.width
  11.  
  12.  Set obj_l = Location.CentralObject
  13.  set obj_d=Direction.Object
  14. set pl =PlayerWindow
  15. pl.top=0
  16. pl.left=0
  17. set txt = CreateTextWindow
  18. txt.LoadFile "China1.html"
  19. 'txt.Locate 380,0,450,100
  20. txt.Locate Screen.width-450,0,450,100
  21. txt.Show
  22. settimemark
  23. ' pause 8000
  24. waitfortime 9000
  25. theTime.step = 1.000000000E+000
  26. txt.Locate Screen.width-450,0,450,130
  27. txt.LoadFile "China2.html"
  28.  theTime.Forward
  29.  WaitFrames 22 : theTime.Stop
  30.  flt.objects.planets.Label(5)= False : UpdateWindows
  31.  theTime.Forward
  32.  WaitFrames 16 : theTime.Stop
  33.  flt.objects.planets.Label(6)= False : UpdateWindows
  34.  theTime.Forward
  35.  WaitFrames 12 : theTime.Stop
  36.  flt.objects.planets.Label(4)= False : UpdateWindows
  37.  theTime.Forward
  38.  WaitFrames 10 : theTime.Stop
  39.  flt.objects.planets.Label(2)= False : UpdateWindows
  40.  flt.objects.planets.Label(1)= False : UpdateWindows
  41.  theTime.Forward
  42.  WaitFrames 10 : theTime.Stop
  43. ' pause 8000
  44. waitfortime 18000
  45.  theTime.mode = 0
  46.  theTime.wnd.left = Screen.width-theTime.wnd.width-5
  47. txt.Locate Screen.width-450,0,450,115
  48. txt.LoadFile "China3.html"
  49. pause 1000
  50.  flt.objects.planets.Label(1)= True
  51.  flt.objects.planets.Label(2)= True
  52.  flt.objects.planets.Label(4)= True
  53.  flt.objects.planets.Label(6)= True
  54.  flt.objects.planets.Label(5)= True : UpdateWindows
  55. ' pause 13000
  56. waitfortime 15000
  57. theTime.wnd.left= -theTime.wnd.width
  58. txt.Locate Screen.width-450,0,450,130
  59. txt.LoadFile "China4.html"
  60. theTime.step = 0.50000000000000E+000
  61. theTime.Forward
  62.  WaitFrames 76 : theTime.Stop
  63.  flt.objects.moons.Magnification(301)=6 : UpdateWindows
  64.  flt.objects.moons.Magnification(301)=1 : UpdateWindows
  65.  flt.objects.moons.Magnification(301)=6 : UpdateWindows
  66.  flt.objects.moons.Magnification(301)=2 : UpdateWindows
  67.  flt.objects.moons.Label(301)= False : UpdateWindows
  68. theTime.Forward
  69.  WaitFrames 36 : theTime.Stop
  70. ' pause 9000
  71. waitfortime 18000
  72. txt.Close
  73. ' end recording
  74.  
  75.